{-# LANGUAGE DerivingStrategies #-}

module Aria2.URI where

import Text.URI (URI)

data URIStatus = Used | Waiting
  deriving stock (Eq, Show)

data URIInfo = URIInfo
  { uri :: {-# UNPACK #-} !URI,
    status :: !URIStatus
  }
  deriving stock (Show, Eq)
